home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
STREAM13.ARJ
/
LOGDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-05-18
|
1KB
|
55 lines
{$B-} { Use fast boolean evaluation. }
program logdemo;
{ Demonstrates use of TLogFilter }
uses
{$ifdef windows}
wobjects,wincrt,
{$else}
objects,
{$endif windows}
streams;
var
i : integer;
inlog,log : PLogFilter;
begin
{ Log both input and output to Logdemo.out }
new(log, init( new(PDOSStream, init('Logdemo.out',stCreate))));
log^.log(input);
log^.log(output);
writeln('This is the Logdemo program, which logs input and output');
writeln('to LOGDEMO.OUT');
write('Enter an integer:');
readln(i);
writeln('Logging will now be turned off.');
if not log^.unlog(input) then; { This is one way to stop logging. }
close(output); { This is another way. }
{ Re-open output; input was never closed. }
rewrite(output);
writeln('This line will not be logged.');
write('Enter another integer:');
readln(i);
writeln('Logging will be turned back on now.');
log^.log(input);
log^.log(output);
writeln('This line will be logged to the file.');
writeln('All done now; close the log.');
dispose(log,done);
writeln('The log has been closed, so this line won''t be logged.');
end.